home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / misc / shellscr / src / locale.e < prev    next >
Text File  |  1999-11-30  |  1KB  |  59 lines
  1.  
  2. OPT MODULE
  3.  
  4. MODULE 'locale'
  5.  
  6. OBJECT catstr
  7.   id, str
  8. ENDOBJECT
  9.  
  10. EXPORT CONST MSG_DEF_TITLE=0
  11. EXPORT CONST MSG_DEF_PUBNAME=1
  12. EXPORT CONST MSG_OK=2
  13. EXPORT CONST MSG_PROPFONT=3
  14. EXPORT CONST MSG_MODEID=4
  15. EXPORT CONST MSG_NEWSHELL_FAILED=5
  16. EXPORT CONST MSG_BAD_ARGS=6
  17. EXPORT CONST MSG_NO_DEF_SCREEN=7
  18. EXPORT CONST MSG_SCREEN_ERROR=8
  19. EXPORT CONST MSG_UNKNOWN_ERROR=9
  20. EXPORT CONST MSG_SCREENERROR=500
  21. EXPORT CONST MSG_SCREENERROR_1=501
  22. EXPORT CONST MSG_SCREENERROR_2=502
  23. EXPORT CONST MSG_SCREENERROR_3=503
  24. EXPORT CONST MSG_SCREENERROR_4=504
  25. EXPORT CONST MSG_SCREENERROR_5=505
  26. EXPORT CONST MSG_SCREENERROR_6=506
  27. EXPORT CONST MSG_SCREENERROR_7=507
  28.  
  29. EXPORT PROC get_str(cat, id)
  30.   DEF str=NIL, block:PTR TO catstr
  31.  
  32.   block := [
  33.     0, 'AmigaShell',
  34.     1, 'SHELL_%08lx',
  35.     2, 'OK',
  36.     3, 'Requested font "%s/%d" is not fixed-width!',
  37.     4, 'Chosen MODEID = 0x%lx',
  38.     5, 'Cannot open new shell',
  39.     6, 'Bad args',
  40.     7, 'Cannot find a default screen',
  41.     8, 'Cannot open screen: %s',
  42.     9, 'Unknown error',
  43.     500, 'No error',
  44.     501, 'Chosen ModeID is not available',
  45.     502, 'Better chipset required to display this mode',
  46.     503, 'Not enough memory',
  47.     504, 'Not enough chip memory',
  48.     505, 'Public name already in use',
  49.     506, 'Unknown ModeID',
  50.     507, 'Too many bitplanes',
  51.     NIL, NIL
  52.   ]
  53.  
  54.   WHILE block.str
  55.     IF block.id = id THEN str := block.str
  56.     EXIT block.id++ = id
  57.   ENDWHILE
  58. ENDPROC IF localebase THEN GetCatalogStr(cat, id, str) ELSE str
  59.